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MODULE RETDIR ( 


oOo 


LANGUAGE , (BL 18832), 
IDENT = 'V04-000 


— 


BEGIN 


' 
RRR REA ARR EEE REE EA ERATE AERA EEE AAA EEAAAAA ARERR 


!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
1 Sl by stone MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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' % 
'® TRANSFERRED. © 
' * 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
SHOULD NOT BE CONSTRUED AS A COMMI T * 
* 

ae 

® 

e 

% 

* 
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C 
'® AND TMENT BY DIGITAL EQUIPMEN 
'® CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Use PIC_DESC instead of DESCRIPTOR. 
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9 
1 0 
} 1 
: g 
1 4 
: 5 
: ° 
1 8 
1 % 
2 0 
; 
s i 
§ 5 
5 o iis 
2 8 '® 
9 SERRE REAR AAEE EAR AEEAEAERAAARAEEE AEE EAA ARE RARE EAA KE AEE 
3 '44 
%§ ! 
; $ FACILITY: F11ACP Structure Level 2 
3 35 ABSTRACT: 
37 i This routine returns the resulting data from a directory 
$ } operation to the user's buffer packet. 
4 40 ENVIRONMENT : 
4 ri} i STARLET operating system, including privileged system services 
4 4 ! and internal exec routines. This routine must be called 
; rf in kernel mode. 
4 4 inn 
4 43 : 
é 48 1 | 
: 14 AUTHOR: Andrew C. Goldstein, CREATION DATE: 3-Jan-1977 15:07 
3 031 i MODIFIED BY: 
5 08 i v03-002 CDS0002 Christian D. Saether 30-Dec-1983 
; bee Use L_NORM Linkage and BIND_COMMON macro. 
: 036 ; v03-001 CDS0001 Christian D. Saether 4-May-1983 | 


1fbeo-1 MiG, UTES UmnASTeRsch tix. sReaReroie.032;1°%° af 


H 1! 

3 $3 é 1! v02-001 ACG0208 Andrew (. Goldstein, 12-Nov-1981 23:49 | 
: 1! phenge declaration of q rectory context block 

3 2 6 i Fix Length checks on file name buffer 

; 8 065 1! v02-000 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:27 
; 664 0064 1! Previous revision history moved to F11B.REV 

3; 65 065 1 !e« 

3 08 066 1 

en 0067 1 

; 68 0068 1 LIBRARY eee ee fORARY #18, L52"; 

;s & 0069 1 REQUIRE ‘SRC$:FCPDEF.B32'; 
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122868-1 382 Pe DISKSVMSMASTER:CF1IX. RCIRETOIR.B32;1 “ (2) | 
; } GLOBAL ROUTINE RETURN DIR (COUNT, STRING, ABD) : L_NORM NOVALUE = | : 
| 8 1062 1 !+4 | ; 
ee 1 1! | : 
; ie ! ¢ ! FUNCTIONAL DESCRIPTION: | : 
; 1S 1 1} This routine returns the resulting data from a directory | ; 
3 ae ! : } operation to the user's buffer packet. ‘ 
; ; | ° 
: 80 1069 1 | CALLING SEQUENCE: ; 
; 1 ! 4 : RETURN_DIR (ARG1, ARG2, ARG3) ; 
a ore | i INPUT PARAMETERS: : 
; 4 1075 1! ARG]: byte count of result string ; 
: 5 1074 1! anaes address of result ace ng : 
; § : ie ! } ARGS: address of buffer descriptors ; 
; 1077 1 i IMPLICIT INPUTS: 
3 9 1 4 1: DIR_ENTRY: address of directory record ° 
; + : ie : DIR_VERSION: address of version entry : 
i 3 1081 1 | OUTPUT PARAMETERS: : 
: 34 1088 | tp 
; 95 1084 1 i IMPLICIT OUTPUTS: | 
EE ee a 
:; 98 1087 1 | ROUTINE VALUE: ; 
: 10 1089 4 wi 
; 101 1090 1 ! SIDE EFFECTS: 
3 36 1091 1! result data written into buffer packet . 
; 3 109¢ 1 : 
& 1093 1 i-- : 
; 105 1094 1 : 
i 106 1095 2 BEGIN : 
BS 8 aw ! 
: 109 1098 STRING : REF VECTOR C BYTE, ! file string arg ; 
; 110 1099 ABD : REF BBLOCKVECTOR [;ABDSC_LENGTH]; ; 
s 3u% 1100 ! descriptor arg : 
: 8 1102 5 LOCAL ; 
+ 114 11 ‘ FAO_DESC : VECTOR $3: ! FAO control string descriptor 3 
; 2 Re STRING_DESC : VECTOR ; |! FAO output string descriptor : 
; 1% 1 BIND_COMMON; | 
; 118 1108 @ DIR_CONTEXT_DEF; | : 
; 121 1110 ; 
3 i 1111 ! Build the file name string in the buffer supplied. : 
: 18 is §° | 
: 125 1114 2 .COUNT = 0 | ; 
a $ 1115 STRING DESCEO = FILENAME_LENGTH+6; : 
2.-% 1116 STRING_DESCC1J = .STRING; : 
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IF 
TH 


! If the user provided a 
result string as witl fit (zero fil 


CHSCOPY bpacouel 
- ABD 


1 END; 


7€ 


the user provided a 
the result string. 


gp SOrieens JEM. ABD$W_COUNT] GEQ 2 


result length buffer, give him the Length 


BEGIN 
5 ROE Pees ABDSW_TEXT] + ABDCABDSC_RESL, ABDSW_TEXT] + 1)<0,16> = ..COUNT; 


ng the buffer). 


STRING, 0, 
RES, ABD$W. COUNT), 
"ABD ritte “RES, ABDSW TEXT] + 


result de thy Dnt ok return as much of the 


ABDCABDSC_RES, ABDSW_TEXT] + 1); 


! end of routine RETURN_DIR 


~ TITLE 
- IDENT 
-PSECT 
00 57 53 21 3B 43 41 21 00000 P.AAA: .ASCII 
-EXTRN 
003C 00000 -ENTRY 
5 Oc C2 BR bag SUBL2 
5 OOpc CA YE 0000 MOVAB 
04 BC p BRORA CLRL 
7E 56 §©6©8F 9A 00000 MOVZBL 
4 AE 08 A +4 Beoie MOVL 
8 AE 07 OD 16 MOVL 
OC AE DB AF 3 Bate MOVAB 
oS F RAB gh 
68 AE 5F 00 3 PUSHAB 
4 AC pp B PUSHL 
18 OA F ‘ PUSHAB 
snore fer a i: ut 
02 1A =AO Bl MPW 
OF it 04 BLSSU 
51 18 = A0 43 4 MOVAB 
50 61 3C 0004 MOVZWL 


oe 


RETDIR 
\v04-000\ 


SCODES,NOWRT,2 
\!AC; !SW\<0> 
SYSSFAO 
ai DIR, Save R2,R3,R4,R5 
220(BASE), RO 
@COUNT 
#86 STR 
ah STRING: SESC#4 
AAA FAO, DESC#4 
Lecndy ts step) 
Be 8 Desc 
COUN Ane 
0_DESC 
iS “SYSSFAO 
ABD, RO 
(RO), #2 
24(R0), RI 
(R1), RO 
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Breet aee Pai 8bid, | UTEKSUMGMASTER SEE TIX, SRE IRETDIR.B32:1°% (23 


PUSHAB 1(R1)CROJ 


1 
1 
re 
f aC 6 1$: MOVL AgD Ri 
Ai 9€ ; MOVAB 32(R1), R2 
62 ¢ 099 R2), R 


1 A140 9F ’ ; 

f 4 6C B MOVW @COUNT, a(SP)+ : : 

; 1140 ‘ 

§ 3; 1141 ‘ 

MOVZWL ( P : | ; 

Al 00 08 BC 4 C MOVCS @COUNT, @STRING, #0, 34(R1), 1(R2)CROI $ ‘ 

1 aze 0064 ; : 

0067 RET 3 1143) ° 

; Routine Size: 104 bytes, Routine Base: SCODES + 0008 ‘ 
; 155 1144 
1 : 1145 1 END : 
.% 1146 0 ELUDOM ’ 
3 PSECT SUMMARY : 
: Name Bytes Attributes : 
: SCODES 112 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
| : 

; Library Statistics : 
: coocccce Symbols -<------- Pages Processing : 
3 File Total Loaded Percent Mapped Time ‘ 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 25 0 1000 00:02.0 ; 
; COMMAND QUALIFIERS 3 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RETDIR/OBJ=OBJ$:RETDIR MSRC$:RETDIR/UPDATE=(ENHS$:RETDIR) : 
é pisos 104 code + 8 data bytes : 
; Run Time ge. 0 ‘ 
3 rte Time: 34.4 
3 Lines/CPU Min: 4310 : 
: Lexemes/CPU-Ain: 54951 ‘ 
3; Memor Y Used: 196 peges . 
; Compilation Complete : 
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